home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_83_getProp(aPropertyList).ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  765 b   |  23 lines
  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   if the result = 1 then
  5.     set vProperty to the text of member "Checking Property getProp Input Field 1"
  6.     set vProperty to stripSpaces(vProperty)
  7.     set vProperty to checkValue(vProperty)
  8.     if vProperty <> EMPTY then
  9.       if ilk(gDefaultPropList, #propList) then
  10.         if vProperty starts "#" then
  11.           set vProperty to value(vProperty)
  12.         end if
  13.         if getaProp(gDefaultPropList, vProperty) = 0 then
  14.           displayError("<For non-existent property>")
  15.         else
  16.           set vGottenValue to string(getProp(gDefaultPropList, vProperty))
  17.           set the text of member "Checking Property getProp Display Field 2" to vGottenValue
  18.         end if
  19.       end if
  20.     end if
  21.   end if
  22. end
  23.